﻿Public Class frmKlient

    Private mvarChanged As Boolean = False
    Private mvarCancel As Boolean = False
    Private mvarKlientNew As clsInhKlient
    Private mvarAdresWysylki As clsAdresWysylki
    Private mvarDbHolder As clsDataBase
    Private mvarWzynEdytowania As Boolean = False
    Private mvarI As Integer
    Private mvarPozycjaEdycji As Integer
    Private mvarBlokowanie As clsRecordLock
    Private mvarWyznBlokowania As Boolean = False
    Private mvarUzytkownik As clsUzytkownik


    Public Sub New(IdKlienta As Integer, WyznPokaz As Boolean)

        ' To wywołanie jest wymagane przez projektanta.
        InitializeComponent()

        ' Dodaj inicjację po wywołaniu funkcji InitializeComponent().
        mvarDbHolder = New clsDataBase(VAR_CONNECTION_PARAMETERS, VAR_ERROR_HANDLER)
        mvarUzytkownik = CType(clsUzytkownik.Instance(), clsUzytkownik)

        If IdKlienta = 0 Then
            mvarKlientNew = New clsInhKlient
            WyczyscInformacje()
            mvarChanged = False
        Else
            mvarKlientNew = New clsInhKlient(IdKlienta, mvarDbHolder)
            Blokowanie()
            Me.Text = "WIREMET - EDYCJA DANYCH KLIENTA"
            UzupelnienieDanych(WyznPokaz)
            mvarWzynEdytowania = True
            mvarChanged = False
        End If

    End Sub

    Private Sub Blokowanie()

        mvarBlokowanie = New clsRecordLock(VAR_CONNECTION_PARAMETERS, mvarKlientNew.Id, "oem.klient", VAR_ERROR_HANDLER, CInt(mvarUzytkownik.Id))
        mvarWyznBlokowania = True

        If Not mvarBlokowanie.RecordLocked Then
            MessageBox.Show("TYLKO DO ODCZYTU", "WIREMET")
            grbDanePodstawowe.Enabled = False
            grbDaneDodatkowe.Enabled = False
            grbDaneKontaktowe.Enabled = False
            grbAdresWysylki.Enabled = False
            grbUwagi.Enabled = False
            cmdZapisz.Enabled = False
            cmdWyczysc.Enabled = False
        End If

    End Sub

    Private Sub Zapisz()

        If txtNazwaPelna.Text = String.Empty Or txtNazwaSkrocona.Text = String.Empty Or dgvInformacje.Rows.Count = 0 Then
            MessageBox.Show("Podaj konieczne dane?", "WIREMET")
            txtNazwaPelna.Focus()
            mvarCancel = True
        Else
            With mvarKlientNew
                .Id = mvarKlientNew.Id
                .NazwaPelna = Trim(txtNazwaPelna.Text)
                .NazwaSkrocona = Trim(txtNazwaSkrocona.Text)
                .Nip = Trim(txtNip.Text)
                .Etykieta = chkEtykieta.Checked.ToString() 'Trim(txtEtykieta.Text)
                .TerminPlatnosci = Trim(txtTerminPlatnosci.Text)
                .Wysylka = Trim(txtWysylka.Text)
                .Ulica = Trim(txtUlica.Text)
                .Numer = Trim(txtNumerDomu.Text)
                .Miejscowosc = Trim(txtMiejscowosc.Text)
                .KodPocztowy = Trim(txtKodPocztowy.Text)
                .Kraj = Trim(txtKraj.Text)
                .Telefon = Trim(txtTelefon.Text)
                .Email = Trim(txtEmail.Text)
                .AdresWysylki.Clear()
                For Each lvarRow As DataGridViewRow In dgvInformacje.Rows
                    .AdresWysylki.Add(CType(lvarRow.Tag, clsAdresWysylki))
                Next
                .Uwagi = Trim(txtUwagi.Text)
                .Save(mvarDbHolder)
            End With

            If mvarWzynEdytowania = False Then
                WyczyscInformacje()
                WyczyscWysylke()
            End If
            mvarChanged = False
            MessageBox.Show("Zapisano do bazy.", "WIREMET")
            If Not mvarWyznBlokowania Then
                Blokowanie()
            End If
            mvarCancel = False
        End If

    End Sub

    Private Sub WyczyscInformacje()

        txtNazwaPelna.Text = String.Empty
        txtNazwaSkrocona.Text = String.Empty
        txtNip.Text = String.Empty
        chkEtykieta.Checked = False ' txtEtykieta.Text = String.Empty
        txtTerminPlatnosci.Text = String.Empty
        txtWysylka.Text = String.Empty
        txtUlica.Text = String.Empty
        txtNumerDomu.Text = String.Empty
        txtMiejscowosc.Text = String.Empty
        txtKodPocztowy.Text = String.Empty
        txtKraj.Text = String.Empty
        txtTelefon.Text = String.Empty
        txtEmail.Text = String.Empty
        dgvInformacje.Rows.Clear()
        txtUwagi.Text = String.Empty

    End Sub

    Private Sub UzupelnienieDanych(ByVal WyznPokaz As Boolean)

        txtNazwaPelna.Text = mvarKlientNew.NazwaPelna
        txtNazwaSkrocona.Text = mvarKlientNew.NazwaSkrocona
        txtNip.Text = mvarKlientNew.Nip
        chkEtykieta.Checked = CBool(mvarKlientNew.Etykieta)
        txtTerminPlatnosci.Text = mvarKlientNew.TerminPlatnosci
        txtWysylka.Text = mvarKlientNew.Wysylka
        txtUlica.Text = mvarKlientNew.Ulica
        txtNumerDomu.Text = mvarKlientNew.Numer
        txtMiejscowosc.Text = mvarKlientNew.Miejscowosc
        txtKodPocztowy.Text = mvarKlientNew.KodPocztowy
        txtKraj.Text = mvarKlientNew.Kraj
        txtTelefon.Text = mvarKlientNew.Telefon
        txtEmail.Text = mvarKlientNew.Email

        mvarI = 0
        For Each lvarAdres As clsAdresWysylki In mvarKlientNew.AdresWysylki
            mvarI = mvarI + 1
            dgvInformacje.Rows.Add(mvarI, lvarAdres.NazwaSkrocona, lvarAdres.Miejscowosc)
            dgvInformacje.Rows(mvarI - 1).Tag = lvarAdres
        Next
        txtUwagi.Text = mvarKlientNew.Uwagi

        mvarChanged = False
        If WyznPokaz Then
            grbDanePodstawowe.Enabled = False
            grbDaneDodatkowe.Enabled = False
            grbDaneKontaktowe.Enabled = False
            grbAdresWysylkiPrzyciski.Enabled = False
            txtWysylkaNazwaSkrocona.Enabled = False
            txtWysylkaUlica.Enabled = False
            txtWysylkaNumer.Enabled = False
            txtWysylkaKodPocztowy.Enabled = False
            txtWysylkaMiejscowosc.Enabled = False
            txtWysylkaKraj.Enabled = False
            txtWysylkaTelefon.Enabled = False
            txtWysylkaEmail.Enabled = False
            txtUwagi.Enabled = False
            cmdZapisz.Enabled = False
            cmdWyczysc.Enabled = False
            Me.Text = "WIREMET - DANE WYBRANEGO KLIENTA"
        End If

    End Sub


    Private Sub cmdKopiuj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKopiuj.Click

        txtWysylkaNazwaSkrocona.Text = "Firma"
        txtWysylkaUlica.Text = txtUlica.Text
        txtWysylkaNumer.Text = txtNumerDomu.Text
        txtWysylkaMiejscowosc.Text = txtMiejscowosc.Text
        txtWysylkaKodPocztowy.Text = txtKodPocztowy.Text
        txtWysylkaKraj.Text = txtKraj.Text
        txtWysylkaTelefon.Text = txtTelefon.Text
        txtWysylkaEmail.Text = txtEmail.Text
        txtWysylkaNazwaSkrocona.Focus()

    End Sub

    Private Sub cmdWyczysc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdWyczysc.Click

        WyczyscInformacje()

    End Sub

    Private Sub cmdZapisz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdZapisz.Click

        If mvarChanged Then
            Zapisz()
        Else
            MessageBox.Show("Nie wprowadzono żadnych zmian.", "WIREMET")
        End If


    End Sub

    Private Sub cmdAnuluj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnuluj.Click

        mvarChanged = False
        Close()

    End Sub


    Private Sub frmKlient_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        If mvarWyznBlokowania Then
            If mvarBlokowanie.RecordLocked Then
                mvarBlokowanie.Unlock()
            End If
        End If
    End Sub

    Private Sub frmKlient_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        If mvarChanged Then
            Select Case MsgBox("Czy zapisać klienta do bazy?", MsgBoxStyle.YesNo, "WIREMET")
                Case MsgBoxResult.No
                Case MsgBoxResult.Yes
                    Zapisz()
                    If mvarCancel = True Then
                        e.Cancel = True
                    End If
            End Select
        End If

    End Sub

#Region "AdresWysylki"

    Private Sub DodajPozycje()

        If txtWysylkaNazwaSkrocona.Text = String.Empty And txtWysylkaUlica.Text = String.Empty And txtWysylkaNumer.Text = String.Empty And txtWysylkaKodPocztowy.Text = String.Empty And txtWysylkaMiejscowosc.Text = String.Empty And txtWysylkaKraj.Text = String.Empty And txtWysylkaTelefon.Text = String.Empty And txtWysylkaEmail.Text = String.Empty Then
            MessageBox.Show("Wpisz dane", "WIREMET")
        Else
            mvarI = dgvInformacje.Rows.Count

            Dim lvarNowyAdresWysylki As New clsAdresWysylki
            With lvarNowyAdresWysylki
                .NazwaSkrocona = txtWysylkaNazwaSkrocona.Text
                .Ulica = txtWysylkaUlica.Text
                .Numer = txtWysylkaNumer.Text
                .KodPocztowy = txtWysylkaKodPocztowy.Text
                .Miejscowosc = txtWysylkaMiejscowosc.Text
                .Kraj = txtWysylkaKraj.Text
                .Telefon = txtWysylkaTelefon.Text
                .Email = txtWysylkaEmail.Text
            End With

            dgvInformacje.Rows.Add(mvarI + 1, txtWysylkaNazwaSkrocona.Text, txtWysylkaMiejscowosc.Text)
            dgvInformacje.Rows(mvarI).Tag = lvarNowyAdresWysylki
            WyczyscWysylke()
        End If

    End Sub

    Private Sub WyczyscWysylke()

        txtWysylkaNazwaSkrocona.Text = String.Empty
        txtWysylkaUlica.Text = String.Empty
        txtWysylkaNumer.Text = String.Empty
        txtWysylkaKodPocztowy.Text = String.Empty
        txtWysylkaMiejscowosc.Text = String.Empty
        txtWysylkaKraj.Text = String.Empty
        txtWysylkaTelefon.Text = String.Empty
        txtWysylkaEmail.Text = String.Empty
        txtWysylkaNazwaSkrocona.Focus()

    End Sub

    Private Sub cmdDodaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDodaj.Click

        If txtWysylkaNazwaSkrocona.Text = "" Then
            MessageBox.Show("Podaj nazwę skróconą.", "WIREMET")
            txtWysylkaNazwaSkrocona.Focus()
        Else
            mvarI = dgvInformacje.Rows.Count

            Dim lvarNowyAdresWysylki As New clsAdresWysylki
            With lvarNowyAdresWysylki
                .NazwaSkrocona = Trim(txtWysylkaNazwaSkrocona.Text)
                .Ulica = Trim(txtWysylkaUlica.Text)
                .Numer = Trim(txtWysylkaNumer.Text)
                .KodPocztowy = Trim(txtWysylkaKodPocztowy.Text)
                .Miejscowosc = Trim(txtWysylkaMiejscowosc.Text)
                .Kraj = Trim(txtWysylkaKraj.Text)
                .Telefon = Trim(txtWysylkaTelefon.Text)
                .Email = Trim(txtWysylkaEmail.Text)
            End With

            dgvInformacje.Rows.Add(mvarI + 1, txtWysylkaNazwaSkrocona.Text, txtWysylkaMiejscowosc.Text)
            dgvInformacje.Rows(mvarI).Tag = lvarNowyAdresWysylki
            mvarChanged = True
            WyczyscWysylke()
        End If

    End Sub

    Private Sub cmdZmien_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdZmien.Click

        If txtWysylkaNazwaSkrocona.Text = "" Then
            MessageBox.Show("Podaj nazwę skróconą.", "WIREMET")
            txtWysylkaNazwaSkrocona.Focus()
        Else

            With CType(dgvInformacje.SelectedRows(0).Tag, clsAdresWysylki)
                .NazwaSkrocona = txtWysylkaNazwaSkrocona.Text
                .Ulica = txtWysylkaUlica.Text
                .Numer = txtWysylkaNumer.Text
                .Miejscowosc = txtWysylkaMiejscowosc.Text
                .KodPocztowy = txtWysylkaKodPocztowy.Text
                .Kraj = txtWysylkaKraj.Text
                .Telefon = txtWysylkaTelefon.Text
                .Email = txtWysylkaEmail.Text
            End With

            With dgvInformacje.Rows.Item(mvarPozycjaEdycji)
                .Cells("colAdresNazwaSkrocona").Value = txtWysylkaNazwaSkrocona.Text
                .Cells("colAdresMiejscowosc").Value = txtWysylkaMiejscowosc.Text
            End With
            WyczyscWysylke()
            mvarChanged = True
        End If
    End Sub

    Private Sub cmdWysylkaWyczysc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdWysylkaWyczysc.Click

        WyczyscWysylke()

    End Sub

    Private Sub dgvInformacje_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvInformacje.CellMouseClick

        If dgvInformacje.Rows.Count > 0 Then

            mvarPozycjaEdycji = dgvInformacje.CurrentRow.Index

            txtWysylkaNazwaSkrocona.Text = CType(dgvInformacje.SelectedRows(0).Tag, clsAdresWysylki).NazwaSkrocona
            txtWysylkaUlica.Text = CType(dgvInformacje.SelectedRows(0).Tag, clsAdresWysylki).Ulica
            txtWysylkaNumer.Text = CType(dgvInformacje.SelectedRows(0).Tag, clsAdresWysylki).Numer
            txtWysylkaKodPocztowy.Text = CType(dgvInformacje.SelectedRows(0).Tag, clsAdresWysylki).KodPocztowy
            txtWysylkaMiejscowosc.Text = CType(dgvInformacje.SelectedRows(0).Tag, clsAdresWysylki).Miejscowosc
            txtWysylkaKraj.Text = CType(dgvInformacje.SelectedRows(0).Tag, clsAdresWysylki).Kraj
            txtWysylkaTelefon.Text = CType(dgvInformacje.SelectedRows(0).Tag, clsAdresWysylki).Telefon
            txtWysylkaEmail.Text = CType(dgvInformacje.SelectedRows(0).Tag, clsAdresWysylki).Email
            cmdZmien.Enabled = True

        End If

    End Sub

#End Region

#Region "KeyPress"

    Private Sub txtNazwaPelna_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtNazwaPelna.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtNazwaSkrocona.Focus()
        End If
    End Sub

    Private Sub txtNazwaSkrocona_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtNazwaSkrocona.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtNip.Focus()
        End If
    End Sub

    Private Sub txtNip_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtNip.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            chkEtykieta.Focus() 'txtEtykieta.Focus()
        End If
    End Sub


    Private Sub chkEtykieta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles chkEtykieta.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtTerminPlatnosci.Focus()
        End If
    End Sub
    'Private Sub txtEtykieta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtEtykieta.KeyPress
    '    If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
    '        txtTerminPlatnosci.Focus()
    '    End If
    'End Sub

    Private Sub txtTerminPlatnosci_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtTerminPlatnosci.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtWysylka.Focus()
        End If
    End Sub

    Private Sub txtWysylka_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtWysylka.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtUlica.Focus()
        End If
    End Sub

    Private Sub txtUlica_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtUlica.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtNumerDomu.Focus()
        End If
    End Sub

    Private Sub txtNumerDomu_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtNumerDomu.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtKodPocztowy.Focus()
        End If
    End Sub

    Private Sub txtKodPocztowy_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtKodPocztowy.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtMiejscowosc.Focus()
        End If
    End Sub

    Private Sub txtMiejscowosc_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtMiejscowosc.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtKraj.Focus()
        End If
    End Sub

    Private Sub txtKraj_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtKraj.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtTelefon.Focus()
        End If
    End Sub

    Private Sub txtTelefon_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtTelefon.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtEmail.Focus()
        End If
    End Sub

    Private Sub txtEmail_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtEmail.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            cmdKopiuj.Focus()
        End If
    End Sub

    Private Sub txtWysylkaNazwaSkrocona_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtWysylkaNazwaSkrocona.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtWysylkaUlica.Focus()
        End If
    End Sub

    Private Sub txtWysylkaUlica_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtWysylkaUlica.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtWysylkaNumer.Focus()
        End If
    End Sub

    Private Sub txtWysylkaNumer_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtWysylkaNumer.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtWysylkaKodPocztowy.Focus()
        End If
    End Sub

    Private Sub txtWysylkaKodPocztowy_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtWysylkaKodPocztowy.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtWysylkaMiejscowosc.Focus()
        End If
    End Sub

    Private Sub txtWysylkaMiejscowosc_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtWysylkaMiejscowosc.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtWysylkaKraj.Focus()
        End If
    End Sub

    Private Sub txtWysylkaKraj_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtWysylkaKraj.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtWysylkaTelefon.Focus()
        End If
    End Sub

    Private Sub txtWysylkaTelefon_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtWysylkaTelefon.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            txtWysylkaEmail.Focus()
        End If
    End Sub

    Private Sub txtWysylkaEmail_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtWysylkaEmail.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            cmdDodaj.Focus()
        End If
    End Sub

#End Region

#Region "Changed"

    Private Sub txtNazwaPelna_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtNazwaPelna.TextChanged
        mvarChanged = True
    End Sub

    Private Sub txtNazwaSkrocona_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtNazwaSkrocona.TextChanged
        mvarChanged = True
    End Sub

    Private Sub txtNip_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtNip.TextChanged
        mvarChanged = True
    End Sub

    Private Sub chkEtykieta_CheckedChanged(sender As Object, e As EventArgs) Handles chkEtykieta.CheckedChanged
        mvarChanged = True
    End Sub
    'Private Sub txtEtykieta_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtEtykieta.TextChanged
    '    mvarChanged = True
    'End Sub

    Private Sub txtWysylka_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtWysylka.TextChanged
        mvarChanged = True
    End Sub

    Private Sub txtTerminPlatnosci_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTerminPlatnosci.TextChanged
        mvarChanged = True
    End Sub

    Private Sub txtUlica_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUlica.TextChanged
        mvarChanged = True
    End Sub

    Private Sub txtNumerDomu_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtNumerDomu.TextChanged
        mvarChanged = True
    End Sub

    Private Sub txtMiejscowosc_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtMiejscowosc.TextChanged
        mvarChanged = True
    End Sub

    Private Sub txtKodPocztowy_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtKodPocztowy.TextChanged
        mvarChanged = True
    End Sub

    Private Sub txtKraj_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtKraj.TextChanged
        mvarChanged = True
    End Sub

    Private Sub txtTelefon_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTelefon.TextChanged
        mvarChanged = True
    End Sub

    Private Sub txtEmail_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtEmail.TextChanged
        mvarChanged = True
    End Sub

    Private Sub txtUwagi_TextChanged(sender As Object, e As EventArgs) Handles txtUwagi.TextChanged
        mvarChanged = True
    End Sub

#End Region

End Class

